home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CS / CSCD023B.D64 / dir. print .exe (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.5 KB  |  76 lines
  1. 10 REM    FROM Q-LINK DISK # X190                 MODIFIED BY   JIM GREEN
  2. 30 DIMFX$(256),FT$(256),FL(256),TT(256):N=-1:FORI=1TO256:FX$(I)="":NEXT:X=221
  3. 40 BL$=" ":FORI=1TO40:BL$=BL$+"[160]":NEXT
  4. 50 CLOSE15:OPEN15,8,15:OPEN1,8,0,"$0":GOSUB480:GET#1,A$,B$
  5. 60 POKE53280,15:POKE53281,15:AL=0
  6. 70 PRINT"[147]   [196] I R E C T O R Y    [208] R I N T E R   "
  7. 80 PRINT"[151]  [208]RINTS DISK CONTENTS IN ALPHABETICAL
  8. 81 [153]"  ORDER OR NOT...YOUR CHOICE.
  9. 82 PRINT"  [196]O YOU WISH THE FILES IN ALPHABETICAL   ORDER  [217]/[206]
  10. 83 [161]G$:[139]G$[179][177]"Y"[175]G$[179][177]"N"[167]83
  11. 84 [139]G$[178]"Y"[167]AL[178]1
  12. 86 [153]"  (null)SE (null)RIGHT$LEN-1525 OR (null)(null)(null) 801 ETC.
  13. 90 PRINT"   [212]URN ON PRINTER...........>        "
  14. 100 PRINT"  [212]YPE ANY HEADING YOU WANT,
  15. 101 [153]"  IF NONE DESIRED PRESS (null)VAL(null)(null)(null)(null).
  16. 102 PRINT"   [17 CHARACTER [205][193][216]], [213]SE LOWERCASE. [146]"
  17. 103 PRINT"   [[204]ABEL WILL PRINT IN [213][208][208][197][210][195][193][211][197]]    [146]"
  18. 110 W=46:L$="":PRINT"  [196]IRECTORY LABEL OR DATE....
  19. 112 [151]631,151:[151]198,1:[133]"   TANTANTAN>LIST";L$
  20. 114 [139][195](L$)[177]17[167][153]"ONON  (null)ABEL STRING TOO LONG..ON":[129]D[178]1[164]2E3:[130]:[137]110
  21. 120 [153]"  (null)EADING FILES FROM DISK..
  22. 130 GET#1,A$,B$:GET#1,A$,B$:C=0:IFA$<>""THENC=ASC(A$)
  23. 140 IF B$<>"" THEN C=C+ASC(B$)*256
  24. 150 N=N+1:FL(N)=C
  25. 160 GET#1,B$:IF ST<>0 THEN250
  26. 170 IF B$<>CHR$(34) THEN160
  27. 180 N$=""
  28. 190 GET#1,B$:IFB$<>CHR$(34)THENN$=N$+B$:GOTO190
  29. 200 FX$(N)=N$
  30. 210 GET#1,B$:IF B$=CHR$(32) THEN210
  31. 220 C$=""
  32. 230 C$=C$+B$:GET#1,B$:IF B$<>""  THEN230
  33. 240 FT$(N)=LEFT$(C$,3):IFST=0THEN130
  34. 250 CLOSE1:BF=FL(N):N=N-1:GOSUB580
  35. 260 CLOSE3:OPEN3,4
  36. 270 PRINT#3,CHR$(176);:FORI=1TO46:PRINT#3,CHR$(192);:NEXT:PRINT#3,CHR$(174)
  37. 280 PRINT#3,CHR$(X);SPC(46);CHR$(X)
  38. 290 T2$=FX$(0):IFL$<>""THENT2$=T2$+"[160][160]("+L$+")"
  39. 300 T$=CHR$(X)+"    >>> "+FX$(0)
  40. 310 IFL$=""THENT$=T$+MID$(BL$,1,W-LEN(T$)-1):GOTO330
  41. 320 K=W-2-LEN(T$)-LEN(L$):T$=T$+MID$(BL$,1,K-1)+"-"+L$+"-"
  42. 330 T$=T$+"  "+CHR$(X):PRINT#3,T$
  43. 340 PRINT#3,CHR$(X);SPC(46);CHR$(X)
  44. 350 PRINT#3,CHR$(171);:FORI=1TO46:PRINT#3,CHR$(192);:NEXT:PRINT#3,CHR$(179)
  45. 360 PRINT#3,CHR$(X);SPC(46);CHR$(X)
  46. 370 L=9:K=INT((N+1)/2):FORI=1TOK
  47. 380 T$=CHR$(X):J=I:GOSUB520:T$=T$+" ":J=K+I:GOSUB520:T$=T$+" "+CHR$(X)
  48. 390 PRINT#3,T$ : L=L+1 : NEXT
  49. 400 PRINT#3,CHR$(X);SPC(46);CHR$(X)
  50. 410 P=INT((BF*100/664)+.5):P$=MID$(STR$(P),2)
  51. 420 T$=CHR$(X)+MID$(BL$,1,11)+STR$(BF)+" BLOCKS ("+P$+" %) FREE"
  52. 430 T$=T$+MID$(BL$,1,W-LEN(T$)+1)+CHR$(X):PRINT#3,T$
  53. 440 FORI=LTO27:PRINT#3,CHR$(X);SPC(46)CHR$(X)
  54. 450 NEXT
  55. 460 PRINT#3,CHR$(173);:FORI=1TO46:PRINT#3,CHR$(192);:NEXT:PRINT#3,CHR$(189)
  56. 470 PRINT#3:CLOSE3:CLOSE15
  57. 471 FORT=30TO0STEP-1:POKE54296,T:POKE54296,0:NEXT
  58. 472 PRINT"[145][145]  [208]RINT MORE [196][201][210][197][195][212][207][210][201][197][211] [217]/[206]...  "
  59. 473 GETG$:IFG$<>"Y"ANDG$<>"N"THEN473
  60. 474 IFG$="Y"THENRUN
  61. 475 PRINT"";:END
  62. 480 INPUT#15,ER,ER$:IFER<20THENRETURN
  63. 490 IFER=74ORER=21THENER$=ER$+"--IS DISK INSERTED?":GOTO510
  64. 500 ER$="DISK ERROR"+STR$(ER)+": "+ER$
  65. 510 PRINTER$:END
  66. 520 T=TT(J):IFT=0THENT$=T$+MID$(BL$,1,22):RETURN
  67. 530 IFFL(T)<100THENT$=T$+"[160]"
  68. 540 IFFL(T)<10THENT$=T$+"[160]"
  69. 550 T$=T$+MID$(STR$(FL(T)),2)+" "+FX$(T)
  70. 560 IF LEN(FX$(T))<16THENT$=T$+MID$(BL$,1,16-LEN(FX$(T)))
  71. 570 T$=T$+" "+LEFT$(FT$(T),1):RETURN
  72. 580 FORI=1TON:TT(I)=I:NEXT:IFAL=0THENRETURN
  73. 590 FORI=1 TO N-1 : S=I : FOR J=I+1 TO N : IF FX$(TT(J))<FX$(TT(S)) THEN S=J
  74. 600 NEXT J : IF S<>I THEN T=TT(I) : TT(I)=TT(S) : TT(S) =T
  75. 610 NEXT I : RETURN
  76.